(fill-individual-paragraphs): Fix skipping headers of yanked message.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index b5017b22a9d9a7ba4b509ab032602055594817fa..bbe44f3d6fe40335a64af958fa74d95a71bfef89 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -327,7 +327,9 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
       (beginning-of-line)
       (if mailp 
          (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$"))
-           (search-forward "\n\n" nil 'move)))
+           (if (looking-at "[ \t]*[^ \t\n]*:")
+               (search-forward "\n\n" nil 'move)
+             (forward-line 1))))
       (narrow-to-region (point) max)
       ;; Loop over paragraphs.
       (while (progn (skip-chars-forward " \t\n") (not (eobp)))